-- *****************************************************************************
-- *                                                    *     _       _        *
-- *  AdaDecoupe                                        *    / \   __| | __ _  *
-- *  http://code.google.com/p/adadecoupe/              *   / _ \ / _` |/ _` | *
-- *  Radim Badsi & Célia Biguzzi - IG3                 *  / ___ \ (_| | (_| | *
-- *  Polytech'Montpellier                              * /_/   \_\__,_|\__,_| *
-- *                                                    *                      *
-- *****************************************************************************
-- *                                                                           *
-- * emplacements.ads  -  Emplacements                                         *
-- * Représentation d'un emplacement sur une plaque de verre                   *
-- *                                                                           *
-- *****************************************************************************

with Util; use Util;

package Emplacements is

	type Emplacement is private;

	function Get_Id_Plaque (E: Emplacement) return Natural;
	function Get_Position (E: Emplacement) return Dimension;
	
	function Creer (Id_Plaque : Natural; Position : Dimension) return Emplacement;

    procedure Deplacer (E: in out Emplacement; X,Y : in Integer);

	function ToString (Empl : Emplacement) return String;
private
	type Emplacement is
	record
		Id_Plaque : Natural;
		Position : Dimension;
	end record;
end Emplacements;